unit uERP_RAD_Usuario;

interface

uses
  Uni, uQuery;

type
  TRADUsuario = class

    {$REGION '<< Private >>'}

      private

      {$REGION '<< Atributes >>'}

        var m_DataSource_Usuario: TUniDataSource;
        var m_Query_Usuario: TMyQuery;

      {$ENDREGION}

    {$ENDREGION}

    {$REGION '<< Public >>'}

      public

      {$REGION '<< Methods >>'}

        {$REGION '<< Getter and Setter >>'}

          function GetDataSource_Usuario(): TUniDataSource;
          function GetQuery_Usuario(): TMyQuery;

        {$ENDREGION}

        constructor Create(); overload;

        function ExecuteSQL_Usuario(): Boolean;

      {$ENDREGION}

    {$ENDREGION}

  end;

implementation

uses uERP_Constantes, SysUtils;

{$REGION '<< TRADUsuario >>'}

constructor TRADUsuario.Create;
begin
  inherited;
  Self.GetDataSource_Usuario().DataSet := Self.GetQuery_Usuario();
end;

function TRADUsuario.ExecuteSQL_Usuario: Boolean;
begin
  Self.m_Query_Usuario.SelectWhere(
                          uERP_Constantes.c_Field_Usuario,
                          uERP_Constantes.c_NomeTB_Usuario,
                          uERP_Constantes.c_Field_Usuario_Login + ' <> ' + QuotedStr(uERP_Constantes.c_Usuario_MESTRE_Login),
                          uERP_Constantes.c_Field_Usuario_Login
                        );
end;

function TRADUsuario.GetDataSource_Usuario: TUniDataSource;
begin
  if not Assigned(m_DataSource_Usuario)
    then m_DataSource_Usuario := TUniDataSource.Create(nil);
  Result := m_DataSource_Usuario;
end;

function TRADUsuario.GetQuery_Usuario: TMyQuery;
begin
  if not Assigned(m_Query_Usuario)
    then m_Query_Usuario := TMyQuery.Create();
  Result := m_Query_Usuario;
end;

{$ENDREGION}

end.
